home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
net
/
amitcp2_x_gcc.lha
/
sana2printfault.c
< prev
next >
Wrap
C/C++ Source or Header
|
1994-01-12
|
1KB
|
56 lines
char RCS_ID_SANA2PRINTFAULT_C[] = "$Id: sana2printfault.c,v 1.3 1994/01/12 18:39:33 jasegler Exp jasegler $";
/*
* sana2printfault.c --- print SANA-II error message
*
* Author: ppessi <Pekka.Pessi@hut.fi>
*
* Copyright © 1993 AmiTCP/IP Group, <amitcp-group@hut.fi>
* Helsinki University of Technology, Finland.
* All rights reserved.
*
* Created : Sat Mar 20 02:10:14 1993 ppessi
* Last modified: Fri Jun 4 02:20:34 1993 ppessi
*/
#include <devices/sana2.h>
#include <net/sana2errno.h>
#ifdef __SASC
#include <proto/dos.h>
#else
#include <clib/dos_protos.h>
#endif
void
Sana2PrintFault (const char *banner, struct IOSana2Req *ios2)
{
register WORD err = ios2->ios2_Req.io_Error;
register ULONG werr = ios2->ios2_WireError;
LONG args[3];
char *format;
args[0] = (LONG) banner;
if (err >= sana2io_nerr || -err > io_nerr)
{
args[1] = (LONG) io_errlist[0];
}
else
{
if (err < 0)
args[1] = (LONG) io_errlist[-err];
else
args[1] = (LONG) sana2io_errlist[err];
}
if (werr == 0 || werr >= sana2wire_nerr)
{
format = "%s: %s\n";
}
else
{
format = "%s: %s (%s)\n";
args[2] = (LONG) sana2wire_errlist[werr];
}
VPrintf (format, args);
}